Attribute VB_Name = "appSpecificErrors"
Option Explicit

Private Const CM_BASENUMBER As Long = vbObjectError + 520

Public Const CP_ERROR_UNREGISTERNONEXISTENT As Long = CM_BASENUMBER + 1
Public Const CP_ERROR_UNREGISTERNONEXISTENT_DESC As String = "A reference was made to an unregistered object."

Public Const CP_ERROR_NONOBJECTINLISTENERSTACK As Long = CM_BASENUMBER + 2
Public Const CP_ERROR_NONOBJECTINLISTENERSTACK_DESC As String = "An item in a listener stack is not an object."

Public Const CP_ERROR_INVALIDOBJECTINSTACK As Long = CM_BASENUMBER + 3
Public Const CP_ERROR_INVALIDOBJECTINSTACK_DESC As String = "An item exists in a listener stack that does not match the stack's function."

Public Const CP_ERROR_REQUIREDSTRINGISBLANK As Long = CM_BASENUMBER + 4
Public Const CP_ERROR_REQUIREDSTRINGISBLANK_DESC As String = "A required string variable is zero-length."

Public Const CP_ERROR_OBJECTNOTVALID As Long = CM_BASENUMBER + 5
Public Const CP_ERROR_OBJECTNOTVALID_DESC As String = "An object was passed that does not match the standard object types."
